inherit CometCompo_evolution_LM_FC Logical_model

#___________________________________________________________________________________________________________________________________________
method CometCompo_evolution_LM_FC constructor {name descr args} {
 this inherited $name $descr

# Adding some physical models 
 set PM_FC_1 [CometCompo_evolution_PM_FC_basic ${objName}_PM_FC_1 "A standard compuation process" ""]
 this Add_PM $PM_FC_1; this set_PM_active $PM_FC_1

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometCompo_evolution_LM_FC [P_L_methodes_set_CometCompo_evolution] {} {$this(L_actives_PM)}
Methodes_get_LC CometCompo_evolution_LM_FC [P_L_methodes_get_CometCompo_evolution] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
 
proc P_L_methodes_set_CometCompo_evolution_COMET_RE_FC {} {return [list {set_Input_data {name values}}  \
     {set_Output_data {name values}}  \
 {set_L_inputs {v}}  \
							   {set_can_process {v}}\
							   {set_has_error {v}}\
								       {set_has_processed {v}}]}
Generate_LM_setters CometCompo_evolution_LM_FC [P_L_methodes_set_CometCompo_evolution_COMET_RE_FC]

#___________________________________________________________________________________________________________________________________________


